(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     32141,       1043]
NotebookOptionsPosition[     26723,        853]
NotebookOutlinePosition[     27544,        883]
CellTagsIndexPosition[     27424,        877]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["XX", "HistoryData",
  CellTags->"New"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised"]
}], "History",
 CellID->1247902091],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507],

Cell["TransferMatrixFormalism Package", "Categorization",
 CellChangeTimes->{3.6000067257513847`*^9},
 CellLabel->"Paclet Name",
 CellID->770038257],

Cell["TransferMatrixFormalism`", "Categorization",
 CellLabel->"Context",
 CellID->140464271],

Cell["TransferMatrixFormalism/ref/AbelesS", "Categorization",
 CellChangeTimes->{3.6000067266213865`*^9},
 CellLabel->"URI",
 CellID->39363149]
}, Open  ]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294],

Cell["AbelesS", "Keywords",
 CellChangeTimes->{{3.598226151181749*^9, 3.598226154832155*^9}, {
  3.5987210239319167`*^9, 3.5987210267087216`*^9}, {3.6204376105666814`*^9, 
  3.620437613017685*^9}},
 CellID->1164421360],

Cell["SI", "Keywords",
 CellChangeTimes->{{3.598226151181749*^9, 3.598226154832155*^9}, {
  3.5987210239319167`*^9, 3.598721028159524*^9}},
 CellID->223682285],

Cell["SII", "Keywords",
 CellChangeTimes->{{3.598226151181749*^9, 3.598226154832155*^9}, {
  3.5987210239319167`*^9, 3.598721028814725*^9}},
 CellID->270504033],

Cell["system transfer matrix", "Keywords",
 CellChangeTimes->{{3.598226151181749*^9, 3.598226154832155*^9}, 
   3.5987210239319167`*^9},
 CellID->255349933],

Cell["transfer matrix", "Keywords",
 CellChangeTimes->{{3.598226151181749*^9, 3.59822615760896*^9}},
 CellID->88493644],

Cell["Eq. 15", "Keywords",
 CellChangeTimes->{{3.598226151181749*^9, 3.59822615760896*^9}, {
  3.598226244144312*^9, 3.5982262474671183`*^9}},
 CellID->643043129]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254]
}, Open  ]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->670882175],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->8391405],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365]
}, Closed]],

Cell[CellGroupData[{

Cell["AbelesS", "ObjectName",
 CellID->1224892054],

Cell[TextData[{
 Cell[" ", "ModInfo"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["AbelesS",
    BaseStyle->"Link",
    ButtonData->"paclet:TransferMatrixFormalism/ref/AbelesS"], "[", 
   RowBox[{"\"\<\!\(\*
StyleBox[\"pol\", \"TI\"]\)\>\"", ",", 
    StyleBox["\[Omega]", "TR"], ",", 
    SubscriptBox[
     StyleBox["\[Theta]", "TR"], 
     StyleBox["0", "TR"]], ",", 
    SubscriptBox[
     StyleBox["n", "TI"], 
     StyleBox["0", "TR"]], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        SubscriptBox[
         StyleBox["n", "TI"], 
         StyleBox["1", "TR"]], ",", 
        SubscriptBox[
         StyleBox["d", "TI"], 
         StyleBox["1", "TR"]]}], "}"}], "\[CenterEllipsis]", 
      RowBox[{"{", 
       RowBox[{
        SubscriptBox[
         StyleBox["n", "TI"], 
         StyleBox["k", "TI"]], ",", 
        SubscriptBox[
         StyleBox["d", "TI"], 
         StyleBox["k", "TI"]]}], "}"}]}], "}"}], ",", 
    SubscriptBox[
     StyleBox["n", "TI"], 
     RowBox[{"k", "+", "1"}]]}], "]"}]], "InlineFormula"],
 "\[LineSeparator]calculates total system transfer matrix for ",
 StyleBox["\"pol\"", "TI"],
 "-polarized light at frequency ",
 Cell[BoxData[
  StyleBox["\[Omega]", "TR"]], "InlineFormula",
  ShowStringCharacters->False],
 " with refraction angle in medium 0 ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["\[Theta]", "TR"], 
   StyleBox["0", "TI"]]], "InlineFormula"],
 ", refractive indices ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["n", "TI"], 
   StyleBox["i", "TI"]]], "InlineFormula"],
 ", and thin film layer thicknesses ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["d", "TI"], 
   StyleBox["i", "TI"]]], "InlineFormula"],
 " in order as they appear in the thin film stack. ",
 ButtonBox["Eq. 15",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://dx.doi.org/10.1364/JOSAB.30.001503"], None}],
 "  ",
 ButtonBox["Eq. 15.",
  BaseStyle->"Link",
  ButtonData->
   "paclet:TransferMatrixFormalism/ReferencePages/Symbols/AbelesS#148884605"],
 "\n",
 Cell["      ", "ModInfo"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["AbelesS",
    BaseStyle->"Link",
    ButtonData->"paclet:TransferMatrixFormalism/ref/AbelesS"], "[", 
   RowBox[{"\"\<\!\(\*
StyleBox[\"pol\", \"TI\"]\)\>\"", ",", 
    StyleBox["\[Omega]", "TR"], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        SubscriptBox[
         StyleBox["\[Theta]", "TR"], 
         StyleBox["0", "TR"]], ",", 
        SubscriptBox[
         StyleBox["n", "TI"], 
         StyleBox["0", "TR"]]}], "}"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          SubscriptBox[
           StyleBox["\[Theta]", "TR"], 
           StyleBox["1", "TR"]], ",", 
          SubscriptBox[
           StyleBox["n", "TI"], 
           StyleBox["1", "TR"]], ",", 
          SubscriptBox[
           StyleBox["d", "TI"], 
           StyleBox["1", "TR"]]}], "}"}], "..."}], 
       RowBox[{"{", 
        RowBox[{
         SubscriptBox[
          StyleBox["\[Theta]", "TR"], 
          StyleBox["k", "TI"]], ",", 
         SubscriptBox[
          StyleBox["n", "TI"], 
          StyleBox["k", "TI"]], ",", 
         SubscriptBox[
          StyleBox["d", "TI"], 
          StyleBox["k", "TI"]]}], "}"}]}], ",", 
      RowBox[{"{", 
       RowBox[{
        SubscriptBox[
         StyleBox["\[Theta]", "TR"], 
         RowBox[{"k", "+", "1"}]], ",", 
        SubscriptBox[
         StyleBox["n", "TI"], 
         RowBox[{"k", "+", "1"}]]}], "}"}]}], "}"}]}], "]"}]], 
  "InlineFormula"],
 "\[LineSeparator]Provide precomputed refraction angles for all media."
}], "Usage",
 CellChangeTimes->{{3.5980222034737806`*^9, 3.598022507980116*^9}, {
  3.5980570282645817`*^9, 3.5980570283425817`*^9}, {3.5985460106799393`*^9, 
  3.598546016199947*^9}, {3.5985460839750423`*^9, 3.598546084645043*^9}, {
  3.5985461434801254`*^9, 3.598546179582176*^9}, {3.598721334336862*^9, 
  3.598721336006065*^9}, {3.5987218026028843`*^9, 3.5987218046776876`*^9}, {
  3.5987218567359796`*^9, 3.59872186250799*^9}, {3.598721937274726*^9, 
  3.598721955549771*^9}, {3.5987220216489897`*^9, 3.5987220216957893`*^9}, {
  3.598723178548747*^9, 3.5987231826515546`*^9}, {3.5987235075501256`*^9, 
  3.5987235085953274`*^9}, {3.598723551464203*^9, 3.598723582087056*^9}}],

Cell[TextData[{
 Cell[BoxData[
  RowBox[{"\"\<\>", 
   StyleBox["pol", "TI"], "\"\<\>"}]], "InlineFormula",
  ShowStringCharacters->False],
 "-polarization may be ",
 Cell[BoxData[
  RowBox[{"\"\<\>", 
   StyleBox["s", "TI"], "\"\<\>"}]], "InlineFormula",
  ShowStringCharacters->False],
 " or ",
 Cell[BoxData[
  RowBox[{"\"\<\>", 
   StyleBox["p", "TI"], "\"\<\>"}]], "InlineFormula",
  ShowStringCharacters->False],
 " for propagating light fields with electric field oscillating perpendicular \
to the plane of incidence (transverse electric, TE) or magnetic field \
oscillating perpendicular to the plane of incidence (transverse magnetic, \
TM), respectively."
}], "Notes",
 CellChangeTimes->{{3.598195174047447*^9, 3.5981955680109396`*^9}},
 CellID->3787681],

Cell[TextData[{
 ButtonBox["AbelesS",
  BaseStyle->"Link",
  ButtonData->"paclet:TransferMatrixFormalism/ref/AbelesS"],
 " is the total system transfer matrix, made up of the stack of \
characteristic interfacial matrices of refraction (",
 ButtonBox["RefractionMv",
  BaseStyle->"Link",
  ButtonData->"paclet:TransferMatrixFormalism/ref/RefractionMv"],
 ") and layer phase matrices (",
 ButtonBox["PhaseMv",
  BaseStyle->"Link",
  ButtonData->"paclet:TransferMatrixFormalism/ref/PhaseMv"],
 ") for a thin film system."
}], "Notes",
 CellChangeTimes->{{3.598022541662575*^9, 3.598022626870925*^9}, {
   3.59802266415499*^9, 3.5980226661517935`*^9}, {3.598195605778606*^9, 
   3.598195611457016*^9}, {3.598721643919406*^9, 3.598721664683042*^9}, 
   3.598721714088329*^9, {3.623461888400915*^9, 3.6234619227833757`*^9}},
 CellID->301028855],

Cell[TextData[{
 "\n",
 Cell[BoxData[
  FormBox[
   RowBox[{"S", "=", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         SubscriptBox["W", 
          RowBox[{"0", ",", "1"}]], ".", 
         SubscriptBox["\[CapitalPhi]", "1"], ".", 
         SubscriptBox["W", 
          RowBox[{"1", ",", "2"}]]}], "..."}], 
       RowBox[{
        SubscriptBox["W", 
         RowBox[{
          RowBox[{"v", "-", "1"}], ",", "v"}]], ".", 
        SubscriptBox["\[CapitalPhi]", "v"], ".", 
        SubscriptBox["W", 
         RowBox[{"v", ",", 
          RowBox[{"v", "+", "1"}]}]]}]}], "..."}], 
     RowBox[{
      SubscriptBox["W", 
       RowBox[{
        RowBox[{"k", "-", "1"}], ",", "k"}]], ".", 
      SubscriptBox["\[CapitalPhi]", "k"], ".", 
      SubscriptBox["W", 
       RowBox[{"k", ",", 
        RowBox[{"k", "+", "1"}]}]]}]}]}], TraditionalForm]], "InlineMath"]
}], "Notes",
 CellChangeTimes->{{3.598022541662575*^9, 3.598022626870925*^9}, {
  3.59802266415499*^9, 3.5980226661517935`*^9}, {3.598195605778606*^9, 
  3.598195611457016*^9}, {3.598721643919406*^9, 3.598721664683042*^9}, {
  3.598721714088329*^9, 3.59872172046874*^9}},
 TextAlignment->Center,
 CellID->585426781],

Cell[TextData[{
 "\nThe total system transfer matrix relates waves traveling towards and away \
from the external thin film system boundaries within the semi-infinite medium \
",
 Cell[BoxData[
  FormBox["1", TraditionalForm]], "InlineMath"],
 " and medium ",
 Cell[BoxData[
  FormBox[
   RowBox[{"k", "+", "1"}], TraditionalForm]], "InlineMath"],
 "."
}], "Notes",
 Deletable->True,
 CellChangeTimes->{{3.598022541662575*^9, 3.598022626870925*^9}, {
  3.59802266415499*^9, 3.5980226661517935`*^9}, {3.598195605778606*^9, 
  3.598195611457016*^9}, {3.598721643919406*^9, 3.598721664683042*^9}, {
  3.598721714088329*^9, 3.598721723245545*^9}, {3.6235473684705143`*^9, 
  3.6235474940663347`*^9}, {3.623547526233591*^9, 3.6235475351256065`*^9}},
 CellID->266960528],

Cell[TextData[{
 "\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        SubsuperscriptBox["\[CapitalEpsilon]", "0", "-"]},
       {
        SubsuperscriptBox["\[CapitalEpsilon]", "0", "+"]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], "=", 
    RowBox[{"S", "(", "\[NoBreak]", GridBox[{
       {
        SubsuperscriptBox["\[CapitalEpsilon]", 
         RowBox[{"k", "+", "1"}], 
         RowBox[{"-", "'"}]]},
       {
        SubsuperscriptBox["\[CapitalEpsilon]", 
         RowBox[{"k", "+", "1"}], 
         RowBox[{"+", "'"}]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}]}], 
   TraditionalForm]], "InlineMath"]
}], "Notes",
 CellChangeTimes->{{3.598022541662575*^9, 3.598022626870925*^9}, {
  3.59802266415499*^9, 3.5980226661517935`*^9}, {3.598195605778606*^9, 
  3.598195611457016*^9}, {3.598721643919406*^9, 3.598721664683042*^9}, {
  3.598721714088329*^9, 3.598721723245545*^9}, {3.598721915408475*^9, 
  3.5987219173235846`*^9}},
 TextAlignment->Center,
 CellID->206663948]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057],

Cell[TextData[ButtonBox["Interfacial Nonlinear Spectroscopy of Thin Film \
Systems",
 BaseStyle->"Link",
 ButtonData->
  "paclet:InterfacialThinFilmNLS/tutorial/Interfacial Nonlinear Spectroscopy \
of Thin Film Systems"]], "Tutorials",
 CellChangeTimes->{{3.597778379480859*^9, 3.5977783986376925`*^9}, {
   3.6000111315791473`*^9, 3.6000111315981483`*^9}, 3.623546471799739*^9},
 CellID->40297743]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535],

Cell[TextData[ButtonBox["D. B. O\[CloseCurlyQuote]Brien and A. M. Massari, \
\"Modeling multilayer thin film interference effects in interface-specific \
coherent nonlinear optical spectroscopies,\" J. Opt. Soc. Am. B 30, 1503 \
(2013).",
 BaseStyle->"Hyperlink",
 ButtonData->{
   URL["http://dx.doi.org/10.1364/JOSAB.30.001503"], None}]], "RelatedLinks",
 CellChangeTimes->{{3.597765920073867*^9, 3.5977659201674676`*^9}, 
   3.5987218472667627`*^9, {3.5987218821525726`*^9, 3.598721895954362*^9}},
 CellID->148884605]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["AbelesSIv",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/AbelesSIv"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["AbelesSIIv",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/AbelesSIIv"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["RefractionMv",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/RefractionMv"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["PhaseMv",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/PhaseMv"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["TransmitTopS",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/TransmitTopS"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["TransmitBottomS",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/TransmitBottomS"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["ReflectTopS",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/ReflectTopS"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["ReflectBottomS",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/ReflectBottomS"]], 
  "InlineFormula"]
}], "SeeAlso",
 CellChangeTimes->{{3.598022991122965*^9, 3.5980230673914986`*^9}, {
  3.5981982603661194`*^9, 3.5981982718487396`*^9}},
 CellID->929782353]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248],

Cell["XXXX", "MoreAbout",
 CellID->1665078683]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151],

Cell["\<\
Calculate the total system transfer coefficients for reflection and \
transmission for 800 nm light incident at 60\[Degree] from the sample normal \
of a 2-layer system:\
\>", "ExampleText",
 CellChangeTimes->{{3.5980235924124217`*^9, 3.598023669508757*^9}, {
  3.5980237056238203`*^9, 3.598023736870675*^9}},
 CellID->142677524],

Cell[BoxData[{
 RowBox[{"<<", "TransferMatrixFormalism`"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "TransferMatrixFormalism`Data`Indices`"}]}], "Input",
 CellChangeTimes->{{3.598023626717882*^9, 3.598023631819091*^9}, {
   3.598721147281333*^9, 3.5987211525541425`*^9}, 3.600006734321397*^9, 
   3.6234619433442116`*^9},
 CellLabel->"In[1]:=",
 CellID->5100754],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "\"\<Indices`*\>\""}]], "Input",
 CellChangeTimes->{{3.59872230897202*^9, 3.598722332294061*^9}, {
  3.5987223804669456`*^9, 3.598722414397005*^9}, {3.598722523004396*^9, 
  3.5987225645316687`*^9}, {3.5987226438110085`*^9, 3.5987226891914883`*^9}},
 CellLabel->"In[2]:=",
 CellID->621554330],

Cell[BoxData[
 DynamicModuleBox[{Typeset`open$$ = True}, 
  PaneSelectorBox[{False->
   RowBox[{
    OpenerBox[Dynamic[Typeset`open$$],
     ImageSize->Small], 
    StyleBox["Indices`", "InfoHeading"]}], True->GridBox[{
     {
      RowBox[{
       OpenerBox[Dynamic[Typeset`open$$],
        ImageSize->Small], 
       StyleBox["Indices`", "InfoHeading"]}]},
     {GridBox[{
        {
         ButtonBox["nPTCDIc8",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3623436964-4096520", {"nPTCDIc8", "Indices`"}},
          ButtonNote->"Indices`"], 
         ButtonBox["nSi",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3623436964-4096520", {"nSi", "Indices`"}},
          ButtonNote->"Indices`"], 
         ButtonBox["nSiO2",
          BaseStyle->"InformationLink",
          ButtonData:>{"Info3623436964-4096520", {"nSiO2", "Indices`"}},
          ButtonNote->"Indices`"]}
       },
       DefaultBaseStyle->"InfoGrid",
       GridBoxItemSize->{"Columns" -> {{
            Scaled[0.31666666666666665`]}}}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}]}, 
   Dynamic[Typeset`open$$],
   ImageSize->Automatic]]], "Print", "InfoCell",
 CellChangeTimes->{3.6234621647554007`*^9},
 CellID->221178]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "nPTCDIc8"}]], "Input",
 CellChangeTimes->{{3.5980239055089717`*^9, 3.598023909580579*^9}},
 CellLabel->"In[3]:=",
 CellID->448268772],

Cell[BoxData[
 StyleBox["\<\"nPTCDIc8[\[Omega]] gets complex refractive index of PTCDI-\!\(\
\*SubscriptBox[\(C\), \(8\)]\) with \[Omega] in \!\(\*SuperscriptBox[\(cm\), \
\(-1\)]\).  Valid in the ranges 1501 < \[Omega] < 3498 and 9091 < \[Omega] < \
40000.  Determined from spectroscopic ellipsometry of vapor deposited thin \
films.\"\>", "MSG"]], "Print", "PrintUsage",
 CellChangeTimes->{3.623462169544609*^9},
 CellTags->"Info3623436969-4096520",
 CellID->485586497]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Lambda]", "=", "800."}], 
     RowBox[{"(*", "nm", "*)"}], ",", "\[Omega]", ",", 
     RowBox[{"\[Theta]0", "=", 
      RowBox[{"60.", "\[Degree]"}]}], ",", 
     RowBox[{"n0", "=", "1"}], ",", "n1", ",", "n2", ",", "n3", ",", 
     RowBox[{"d1", "=", "140"}], " ", 
     RowBox[{"(*", "nm", "*)"}], ",", 
     RowBox[{"d2", "=", "250"}]}], " ", 
    RowBox[{"(*", "nm", "*)"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Omega]", "=", 
     RowBox[{
      SuperscriptBox["10", "7"], "/", "\[Lambda]"}]}], " ", 
    RowBox[{"(*", 
     SuperscriptBox["cm", 
      RowBox[{"-", "1"}]], "*)"}], ";", "\[IndentingNewLine]", 
    RowBox[{"n1", "=", 
     RowBox[{"nPTCDIc8", "[", "\[Omega]", "]"}]}], ";", 
    RowBox[{"n2", "=", 
     RowBox[{"nSiO2", "[", "\[Omega]", "]"}]}], ";", 
    RowBox[{"n3", "=", 
     RowBox[{"nSi", "[", "\[Omega]", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"TableForm", "[", 
     RowBox[{
      RowBox[{"Partition", "[", 
       RowBox[{
        RowBox[{"Through", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "ReflectTopS", ",", "TransmitTopS", ",", "ReflectBottomS", ",", 
            "TransmitBottomS"}], "}"}], "[", 
          RowBox[{"AbelesS", "[", 
           RowBox[{"\"\<p\>\"", ",", 
            RowBox[{"1", "/", "\[Lambda]"}], ",", "\[Theta]0", ",", "n0", ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"n1", ",", "d1"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"n2", ",", "d2"}], "}"}]}], "}"}], ",", "n3"}], "]"}], 
          "]"}], "]"}], ",", "2"}], "]"}], ",", 
      RowBox[{"TableHeadings", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"\"\<Reflect\>\"", ",", "\"\<Transmit\>\""}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<Incident from Top side\>\"", ",", 
           "\"\<Incident from Bottom side\>\""}], "}"}]}], "}"}]}]}], 
     "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.598023684375583*^9, 3.598023699258009*^9}, {
  3.598023741332283*^9, 3.5980238987385597`*^9}, {3.598023930142415*^9, 
  3.5980239925737247`*^9}, {3.598024027956587*^9, 3.598024173525443*^9}, {
  3.5980242186719217`*^9, 3.5980242220415277`*^9}, {3.598024381319808*^9, 
  3.5980243984330378`*^9}, {3.5980244334716997`*^9, 3.598024466700758*^9}, {
  3.598024538960085*^9, 3.5980245473549*^9}, {3.5980246222234316`*^9, 
  3.5980246250314364`*^9}, {3.598722292560791*^9, 3.598722298754002*^9}, {
  3.598723250948475*^9, 3.598723368385481*^9}, {3.598723685406038*^9, 
  3.5987236862796392`*^9}, {3.5987237257331085`*^9, 3.598723767463182*^9}, {
  3.598723826743286*^9, 3.598723859238143*^9}},
 CellLabel->"In[4]:=",
 CellID->639323555],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      StyleBox["\[Null]",
       ShowStringCharacters->False], 
      TagBox["\<\"Incident from Top side\"\>",
       HoldForm], 
      TagBox["\<\"Incident from Bottom side\"\>",
       HoldForm]},
     {
      TagBox["\<\"Reflect\"\>",
       HoldForm], 
      RowBox[{"0.008665734065235076`", "\[VeryThinSpace]", "-", 
       RowBox[{"0.34676051726502666`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "0.22586396013302584`"}], "-", 
       RowBox[{"0.2609571892461926`", " ", "\[ImaginaryI]"}]}]},
     {
      TagBox["\<\"Transmit\"\>",
       HoldForm], 
      RowBox[{"0.3458334468224055`", "\[VeryThinSpace]", "+", 
       RowBox[{"0.0432819593940261`", " ", "\[ImaginaryI]"}]}], 
      RowBox[{
       RowBox[{"-", "1.6130567222646768`"}], "-", 
       RowBox[{"1.8680850308032995`", " ", "\[ImaginaryI]"}]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxDividers->{
     "Columns" -> {False, True, {False}, False}, "ColumnsIndexed" -> {}, 
      "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[2.0999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   {OutputFormsDump`HeadedRows, OutputFormsDump`HeadedColumns}],
  Function[BoxForm`e$, 
   TableForm[
   BoxForm`e$, 
    TableHeadings -> {{"Reflect", "Transmit"}, {
      "Incident from Top side", "Incident from Bottom side"}}]]]], "Output",
 CellChangeTimes->{
  3.5980241743054442`*^9, 3.598024222618729*^9, 3.5980243223663044`*^9, {
   3.5980243548923616`*^9, 3.598024381912609*^9}, {3.598024418276273*^9, 
   3.5980244673091593`*^9}, 3.5980245477137003`*^9, 3.5980246256554375`*^9, {
   3.598723321086198*^9, 3.5987233385426283`*^9}, 3.5987233687910814`*^9, 
   3.5987236869036407`*^9, {3.5987237369651284`*^9, 3.5987237700215864`*^9}, 
   3.623462179871827*^9},
 CellLabel->"Out[4]//TableForm=",
 CellID->39808562]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968],

Cell[BoxData[
 InterpretationBox[Cell["Scope", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265],

Cell[BoxData[
 InterpretationBox[Cell["Generalizations & Extensions", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell["Options", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341],

Cell[BoxData[
 InterpretationBox[Cell["XXXX", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1757724783],

Cell[BoxData[
 InterpretationBox[Cell["XXXX", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1295379749]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell["Applications", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157],

Cell[BoxData[
 InterpretationBox[Cell["Properties & Relations", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759],

Cell[BoxData[
 InterpretationBox[Cell["Possible Issues", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373],

Cell[BoxData[
 InterpretationBox[Cell["Interactive Examples", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318],

Cell[BoxData[
 InterpretationBox[Cell["Neat Examples", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740]
}, Open  ]]
},
WindowSize->{700, 759},
WindowMargins->{{203, Automatic}, {Automatic, 68}},
ShowSelection->True,
CellContext->"Global`",
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "WindowsANSI"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Info3623436969-4096520"->{
  Cell[19574, 652, 471, 8, 76, "Print",
   CellTags->"Info3623436969-4096520",
   CellID->485586497]},
 "ExtendedExamples"->{
  Cell[25203, 795, 100, 2, 53, "ExtendedExamplesSection",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Info3623436969-4096520", 27159, 866},
 {"ExtendedExamples", 27285, 870}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 324, 14, 22, "History",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[906, 38, 68, 1, 27, "CategorizationSection",
 CellID->1122911449],
Cell[977, 41, 79, 2, 31, "Categorization",
 CellID->686433507],
Cell[1059, 45, 148, 3, 31, "Categorization",
 CellID->770038257],
Cell[1210, 50, 93, 2, 31, "Categorization",
 CellID->140464271],
Cell[1306, 54, 143, 3, 31, "Categorization",
 CellID->39363149]
}, Open  ]],
Cell[CellGroupData[{
Cell[1486, 62, 55, 1, 27, "KeywordsSection",
 CellID->477174294],
Cell[1544, 65, 218, 4, 17, "Keywords",
 CellID->1164421360],
Cell[1765, 71, 159, 3, 17, "Keywords",
 CellID->223682285],
Cell[1927, 76, 160, 3, 17, "Keywords",
 CellID->270504033],
Cell[2090, 81, 156, 3, 17, "Keywords",
 CellID->255349933],
Cell[2249, 86, 119, 2, 17, "Keywords",
 CellID->88493644],
Cell[2371, 90, 162, 3, 17, "Keywords",
 CellID->643043129]
}, Open  ]],
Cell[CellGroupData[{
Cell[2570, 98, 65, 1, 27, "TemplatesSection",
 CellID->1872225408],
Cell[2638, 101, 94, 2, 29, "Template",
 CellID->1562036412],
Cell[2735, 105, 82, 2, 29, "Template",
 CellID->158391909],
Cell[2820, 109, 81, 2, 29, "Template",
 CellID->1360575930],
Cell[2904, 113, 82, 2, 29, "Template",
 CellID->793782254]
}, Open  ]],
Cell[CellGroupData[{
Cell[3023, 120, 53, 1, 27, "DetailsSection",
 CellID->307771771],
Cell[3079, 123, 63, 2, 31, "Details",
 CellID->670882175],
Cell[3145, 127, 69, 2, 31, "Details",
 CellID->350963985],
Cell[3217, 131, 64, 2, 31, "Details",
 CellID->8391405],
Cell[3284, 135, 69, 2, 31, "Details",
 CellID->3610269],
Cell[3356, 139, 61, 2, 31, "Details",
 CellID->401364205],
Cell[3420, 143, 61, 2, 31, "Details",
 CellID->350204745],
Cell[3484, 147, 63, 2, 31, "Details",
 CellID->732958810],
Cell[3550, 151, 78, 2, 31, "Details",
 CellID->222905350],
Cell[3631, 155, 67, 2, 31, "Details",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[3735, 162, 50, 1, 62, "ObjectName",
 CellID->1224892054],
Cell[3788, 165, 4297, 131, 137, "Usage"],
Cell[8088, 298, 765, 21, 53, "Notes",
 CellID->3787681],
Cell[8856, 321, 839, 19, 37, "Notes",
 CellID->301028855],
Cell[9698, 342, 1211, 37, 40, "Notes",
 CellID->585426781],
Cell[10912, 381, 764, 18, 53, "Notes",
 CellID->266960528],
Cell[11679, 401, 1838, 49, 63, "Notes",
 CellID->206663948]
}, Open  ]],
Cell[CellGroupData[{
Cell[13554, 455, 57, 1, 43, "TutorialsSection",
 CellID->250839057],
Cell[13614, 458, 398, 8, 16, "Tutorials",
 CellID->40297743]
}, Open  ]],
Cell[CellGroupData[{
Cell[14049, 471, 83, 1, 30, "RelatedDemonstrationsSection",
 CellID->1268215905],
Cell[14135, 474, 58, 1, 16, "RelatedDemonstrations",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[14230, 480, 65, 1, 30, "RelatedLinksSection",
 CellID->1584193535],
Cell[14298, 483, 520, 9, 29, "RelatedLinks",
 CellID->148884605]
}, Open  ]],
Cell[CellGroupData[{
Cell[14855, 497, 55, 1, 30, "SeeAlsoSection",
 CellID->1255426704],
Cell[14913, 500, 1600, 51, 35, "SeeAlso",
 CellID->929782353]
}, Open  ]],
Cell[CellGroupData[{
Cell[16550, 556, 57, 1, 30, "MoreAboutSection",
 CellID->38303248],
Cell[16610, 559, 46, 1, 16, "MoreAbout",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[16693, 565, 356, 11, 68, "PrimaryExamplesSection",
 CellID->880084151],
Cell[17052, 578, 339, 7, 33, "ExampleText",
 CellID->142677524],
Cell[17394, 587, 361, 7, 48, "Input",
 CellID->5100754],
Cell[CellGroupData[{
Cell[17780, 598, 320, 6, 27, "Input",
 CellID->621554330],
Cell[18103, 606, 1269, 35, 55, "Print",
 CellID->221178]
}, Open  ]],
Cell[CellGroupData[{
Cell[19409, 646, 162, 4, 27, "Input",
 CellID->448268772],
Cell[19574, 652, 471, 8, 76, "Print",
 CellTags->"Info3623436969-4096520",
 CellID->485586497]
}, Open  ]],
Cell[CellGroupData[{
Cell[20082, 665, 2875, 68, 215, "Input",
 CellID->639323555],
Cell[22960, 735, 2194, 54, 53, "Output",
 CellID->39808562]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[25203, 795, 100, 2, 53, "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[25306, 799, 125, 3, 30, "ExampleSection",
 CellID->1293636265],
Cell[25434, 804, 148, 3, 18, "ExampleSection",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[25607, 811, 127, 3, 18, "ExampleSection",
 CellID->2061341341],
Cell[25737, 816, 130, 3, 21, "ExampleSubsection",
 CellID->1757724783],
Cell[25870, 821, 130, 3, 17, "ExampleSubsection",
 CellID->1295379749]
}, Open  ]],
Cell[26015, 827, 131, 3, 30, "ExampleSection",
 CellID->258228157],
Cell[26149, 832, 142, 3, 18, "ExampleSection",
 CellID->2123667759],
Cell[26294, 837, 135, 3, 18, "ExampleSection",
 CellID->1305812373],
Cell[26432, 842, 140, 3, 18, "ExampleSection",
 CellID->1653164318],
Cell[26575, 847, 132, 3, 18, "ExampleSection",
 CellID->589267740]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
